#1. 一维数据练习
group <- c('a','a','c','b','c','a','b','c','b','c')
data1 <- c(1,2,3,4,5,6,7,8,9,10)
tapply(data1,group,mean)


#2. 二维数据练习
data2 <- c(11,12,13,14,15,16,17,18,19,20)
data3 <- c(21,22,23,24,25,26,27,28,29,30)
df <- data.frame(group,data1,data2,data3)
print(df)

#3. 文件读入读出
library("openxlsx")
f1 <- read.delim("E:\\class3\\ADdata1.txt")
f2 <- read.csv("E:\\class3\\ADdata2.csv")
f3 <- read.xlsx("E:\\class3\\ADdata3.xlsx")
f4 <-read.table("E:\\class3\\ADdata4.txt")
f1 <- cbind(rownames(f1), data.frame(f1, row.names=NULL))  #把f1的行名转化为第一列,即将行名与数据列进行列合并
names(f1)[1] <- "id"    #把f1的第一列的列名命名为"id"
head(f1)
names(f2)[1] <- "id"    #f2不需要把行名转化第一列，把f2的第一列的列名命名为"id"
head(f2)
names(f3)[1] <- "id"    #f3不需要把行名转化第一列，把f3的第一列的列名命名为"id"
head(f3)
f4 <- cbind(rownames(f4), data.frame(f4, row.names=NULL))  #把f4的行名转化为第一列
names(f4)[1] <- "id"    #把f1的第一列的列名命名为"id"
head(f4)
f5 <- merge(f1,f2,by="id")      
f6 <- merge(f3,f4,by="id")
f7 <- merge(f5,f6,by="id")      #将f1,f2,f3,f4以“id”为基准合并
head(f7)
write.csv(f7,file ="E:\\class3\\13-刘睿佳-结果.csv")       #将结果存为csv格式文件
write.table(f7,file ="E:\\class3\\13-刘睿佳-结果.txt")      #将结果存为txt格式文件
write.xlsx(f7,file ="E:\\class3\\13-刘睿佳-结果.xlsx")      #将结果存为xlsx格式文件